home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 16 / CU Amiga Magazine's Super CD-ROM 16 (1997-10-16)(EMAP Images)(GB)[!][issue 1997-11].iso / CUCD / Graphics / Ghostscript / source / gdevwprn.c < prev    next >
C/C++ Source or Header  |  1997-05-09  |  19KB  |  666 lines
  1. /* Copyright (C) 1989, 1995, 1996 Aladdin Enterprises.  All rights reserved.
  2.   
  3.   This file is part of Aladdin Ghostscript.
  4.   
  5.   Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6.   or distributor accepts any responsibility for the consequences of using it,
  7.   or for whether it serves any particular purpose or works at all, unless he
  8.   or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9.   License (the "License") for full details.
  10.   
  11.   Every copy of Aladdin Ghostscript must include a copy of the License,
  12.   normally in a plain ASCII text file named PUBLIC.  The License grants you
  13.   the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14.   under certain conditions described in the License.  Among other things, the
  15.   License requires that the copyright notice and this notice be preserved on
  16.   all copies.
  17. */
  18.  
  19. /* gdevwprn.c */
  20. /*
  21.  * Microsoft Windows 3.n printer driver for Ghostscript.
  22.  * Original version by Russell Lang and
  23.  * L. Peter Deutsch, Aladdin Enterprises.
  24.  */
  25. #include "gdevmswn.h"
  26. #include "gp.h"
  27. #include "commdlg.h"
  28.  
  29. /*
  30.  ****** NOTE: this module and gdevwddb should be refactored.
  31.  * The drawing routines are almost identical.
  32.  * The differences are that the mswinprn doesn't use an extra
  33.  * palette (gdevwddb.c could probably be made to work with 
  34.  * one palette also), mswinprn doesn't call win_update() because
  35.  * hwndimg doesn't exist, and the HDC is hdcmf not hdcbit.
  36.  ******/
  37.  
  38. /* Make sure we cast to the correct structure type. */
  39. typedef struct gx_device_win_prn_s gx_device_win_prn;
  40. #undef wdev
  41. #define wdev ((gx_device_win_prn *)dev)
  42.  
  43. /* Forward references */
  44. private void near win_prn_addtool(P2(gx_device_win_prn *, int));
  45. private void near win_prn_maketools(P2(gx_device_win_prn *, HDC));
  46. private void near win_prn_destroytools(P1(gx_device_win_prn *));
  47.  
  48. /* Device procedures */
  49.  
  50. /* See gxdevice.h for the definitions of the procedures. */
  51. private dev_proc_open_device(win_prn_open);
  52. private dev_proc_close_device(win_prn_close);
  53. private dev_proc_sync_output(win_prn_sync_output);
  54. private dev_proc_output_page(win_prn_output_page);
  55. private dev_proc_map_rgb_color(win_prn_map_rgb_color);
  56. private dev_proc_fill_rectangle(win_prn_fill_rectangle);
  57. private dev_proc_tile_rectangle(win_prn_tile_rectangle);
  58. private dev_proc_copy_mono(win_prn_copy_mono);
  59. private dev_proc_copy_color(win_prn_copy_color);
  60. private dev_proc_draw_line(win_prn_draw_line);
  61.  
  62. /* The device descriptor */
  63. struct gx_device_win_prn_s {
  64.     gx_device_common;
  65.     gx_device_win_common;
  66.  
  67.     /* Handles */
  68.  
  69.     HPEN hpen, *hpens;
  70.     uint hpensize;
  71.     HBRUSH hbrush, *hbrushs;
  72.     uint hbrushsize;
  73. #define select_brush(color)\
  74.   if (wdev->hbrush != wdev->hbrushs[color])\
  75.    {    wdev->hbrush = wdev->hbrushs[color];\
  76.     SelectObject(wdev->hdcmf,wdev->hbrush);\
  77.    }
  78.     /* A staging bitmap for copy_mono. */
  79.     /* We want one big enough to handle the standard 16x16 halftone; */
  80.     /* this is also big enough for ordinary-size characters. */
  81.  
  82. #define bmWidthBytes 4        /* must be even */
  83. #define bmWidthBits (bmWidthBytes * 8)
  84. #define bmHeight 32
  85.     HBITMAP FAR hbmmono;
  86.     HDC FAR hdcmono;
  87.     gx_bitmap_id bm_id;
  88.  
  89.     HDC hdcprn;
  90.     HDC hdcmf;
  91.     char mfname[128];
  92.     DLGPROC lpfnAbortProc;
  93. };
  94. private gx_device_procs win_prn_procs = {
  95.     win_prn_open,
  96.     NULL,            /* get_initial_matrix */
  97.     win_prn_sync_output,
  98.     win_prn_output_page,
  99.     win_prn_close,
  100.     win_prn_map_rgb_color,
  101.     win_map_color_rgb,
  102.     win_prn_fill_rectangle,
  103.     win_prn_tile_rectangle,
  104.     win_prn_copy_mono,
  105.     win_prn_copy_color,
  106.     win_prn_draw_line,
  107.     NULL,            /* get_bits */
  108.     NULL,            /* get_params */
  109.     NULL,            /* put_params */
  110.     NULL,            /* map_cmyk_color */
  111.     win_get_xfont_procs
  112. };
  113. gx_device_win_prn far_data gs_mswinprn_device = {
  114.     std_device_std_body(gx_device_win_prn, &win_prn_procs, "mswinprn",
  115.       INITIAL_WIDTH, INITIAL_HEIGHT,     /* win_open() fills these in later */
  116.       INITIAL_RESOLUTION, INITIAL_RESOLUTION    /* win_open() fills these in later */
  117.     ),
  118.      { 0 },                /* std_procs */
  119.     0,                /* BitsPerPixel */
  120.     2,                /* nColors */
  121. };
  122.  
  123. /* Open the win_prn driver */
  124. private int
  125. win_prn_open(gx_device *dev)
  126. {    int depth;
  127.     PRINTDLG pd;
  128.     FILE *f;
  129.     POINT offset;
  130.     POINT size;
  131.     float m[4];
  132.  
  133.     memset(&pd, 0, sizeof(PRINTDLG));
  134.     pd.lStructSize = sizeof(PRINTDLG);
  135.     pd.hwndOwner = hwndtext;
  136.     pd.Flags = PD_PRINTSETUP | PD_RETURNDC;
  137.     if (!PrintDlg(&pd)) {
  138.         /* device not opened - exit ghostscript */
  139.         return gs_error_limitcheck;
  140.     }
  141.     GlobalFree(pd.hDevMode);
  142.     GlobalFree(pd.hDevNames);
  143.     pd.hDevMode = pd.hDevNames = NULL;
  144.     wdev->hdcprn = pd.hDC;
  145.     if (!(GetDeviceCaps(wdev->hdcprn, RASTERCAPS) != RC_BITBLT)) {
  146.         DeleteDC(wdev->hdcprn);
  147.         return gs_error_limitcheck;
  148.     }
  149.  
  150. #ifdef __WIN32__
  151.     wdev->lpfnAbortProc = (DLGPROC)AbortProc;
  152. #else
  153. #ifdef __DLL__
  154.     wdev->lpfnAbortProc = (DLGPROC)GetProcAddress(phInstance, "AbortProc");
  155. #else
  156.     wdev->lpfnAbortProc = (DLGPROC)MakeProcInstance((FARPROC)AbortProc,phInstance);
  157. #endif
  158. #endif
  159.     Escape(wdev->hdcprn,SETABORTPROC,0,(LPSTR)wdev->lpfnAbortProc,NULL);  
  160.     if (Escape(wdev->hdcprn, STARTDOC, strlen(szAppName),szAppName, NULL) <= 0) {
  161. #if !defined(__WIN32__) && !defined(__DLL__)
  162.         FreeProcInstance((FARPROC)wdev->lpfnAbortProc);
  163. #endif
  164.         DeleteDC(wdev->hdcprn);
  165.         return gs_error_limitcheck;
  166.     }
  167.  
  168.     f = gp_open_scratch_file(gp_scratch_file_name_prefix, 
  169.             wdev->mfname, "wb");
  170.     if (f == (FILE *)NULL) {
  171.         Escape(wdev->hdcprn,ENDDOC,0,NULL,NULL);
  172. #if !defined(__WIN32__) && !defined(__DLL__)
  173.         FreeProcInstance((FARPROC)wdev->lpfnAbortProc);
  174. #endif
  175.         DeleteDC(wdev->hdcprn);
  176.         return  gs_error_limitcheck;
  177.     }
  178.     unlink(wdev->mfname);
  179.     wdev->hdcmf = CreateMetaFile(wdev->mfname);
  180.  
  181.     dev->x_pixels_per_inch = (float)GetDeviceCaps(wdev->hdcprn, LOGPIXELSX);
  182.     dev->y_pixels_per_inch = (float)GetDeviceCaps(wdev->hdcprn, LOGPIXELSY);
  183.     Escape(wdev->hdcprn, GETPHYSPAGESIZE, 0, NULL, (LPPOINT)&size);
  184.     dev->width = size.x;
  185.     dev->height = size.y;
  186.     Escape(wdev->hdcprn, GETPRINTINGOFFSET, 0, NULL, (LPPOINT)&offset);
  187.     m[0] /*left*/ = offset.x / dev->x_pixels_per_inch;
  188.     m[3] /*top*/ = offset.y / dev->y_pixels_per_inch;
  189.     m[2] /*right*/ =
  190.         (size.x - offset.x - GetDeviceCaps(wdev->hdcprn, HORZRES))
  191.          / dev->x_pixels_per_inch;
  192.     m[1] /*bottom*/ =
  193.         (size.y - offset.y - GetDeviceCaps(wdev->hdcprn, VERTRES))
  194.          / dev->y_pixels_per_inch
  195.         + 0.15;  /* hack to add a bit more margin for deskjet printer */
  196.     gx_device_set_margins(dev, m, true);
  197.  
  198.     /* Set parameters that were unknown before opening device */
  199.     /* Find out if the device supports color */
  200.     /* We recognize 2, 16 or 256 color devices */
  201.     depth = GetDeviceCaps(wdev->hdcprn,PLANES) * GetDeviceCaps(wdev->hdcprn,BITSPIXEL);
  202.     if ( depth >= 8 ) { /* use 64 static colors and 166 dynamic colors from 8 planes */
  203.         static const gx_device_color_info win_256color = dci_color(8,31,4);
  204.         dev->color_info = win_256color;
  205.         wdev->nColors = 64;
  206.     }
  207.     else if ( depth >= 4 ) {
  208.         static const gx_device_color_info win_16ega_color = dci_color(4, 2, 3);
  209.         dev->color_info = win_16ega_color;
  210.         wdev->nColors = 16;
  211.     } 
  212.     else {   /* default is black_and_white */
  213.         wdev->nColors = 2;
  214.     }
  215.  
  216.     /* create palette for display */
  217.     if ((wdev->limgpalette = win_makepalette((gx_device_win *)dev))
  218.         == (LPLOGPALETTE)NULL) {
  219.         HMETAFILE hmf = CloseMetaFile(wdev->hdcmf);
  220.         DeleteMetaFile(hmf);
  221.         unlink(wdev->mfname);
  222.         Escape(wdev->hdcprn,ENDDOC,0,NULL,NULL);
  223. #if !defined(__WIN32__) && !defined(__DLL__)
  224.             FreeProcInstance((FARPROC)wdev->lpfnAbortProc);
  225. #endif
  226.         DeleteDC(wdev->hdcprn);
  227.         return win_nomemory();
  228.     }
  229.     wdev->himgpalette = CreatePalette(wdev->limgpalette);
  230.  
  231.     /* Create the bitmap and DC for copy_mono. */
  232.     wdev->hbmmono = CreateBitmap(bmWidthBits, bmHeight, 1, 1, NULL);
  233.     wdev->hdcmono = CreateCompatibleDC(wdev->hdcprn);
  234.     if ( wdev->hbmmono == NULL || wdev->hdcmono == NULL ) {
  235.         HMETAFILE hmf = CloseMetaFile(wdev->hdcmf);
  236.         DeleteMetaFile(hmf);
  237.         unlink(wdev->mfname);
  238.         Escape(wdev->hdcprn,ENDDOC,0,NULL,NULL);
  239. #if !defined(__WIN32__) && !defined(__DLL__)
  240.         FreeProcInstance((FARPROC)wdev->lpfnAbortProc);
  241. #endif
  242.         DeleteDC(wdev->hdcprn);
  243.         gs_free((char *)(wdev->limgpalette), 1, sizeof(LOGPALETTE) + 
  244.             (1<<(wdev->color_info.depth)) * sizeof(PALETTEENTRY),
  245.             "win_prn_open");
  246.         return win_nomemory();
  247.     }
  248.     SetMapMode(wdev->hdcmono, GetMapMode(wdev->hdcprn));
  249.     SelectObject(wdev->hdcmono, wdev->hbmmono);
  250.     (void) SelectPalette(wdev->hdcmf,wdev->himgpalette,FALSE);
  251.     RealizePalette(wdev->hdcmf);
  252.     win_prn_maketools(wdev,wdev->hdcmf);
  253.     wdev->bm_id = gx_no_bitmap_id;
  254.  
  255.     return 0;
  256. }
  257.  
  258.  
  259. /* Close the win_prn driver */
  260. private int
  261. win_prn_close(gx_device *dev)
  262. {
  263. HMETAFILE hmf;
  264.     /* Free resources */
  265.     Escape(wdev->hdcprn,ENDDOC,0,NULL,NULL);
  266. #if !defined(__WIN32__) && !defined(__DLL__)
  267.     FreeProcInstance((FARPROC)wdev->lpfnAbortProc);
  268. #endif
  269.     DeleteDC(wdev->hdcprn);
  270.     hmf = CloseMetaFile(wdev->hdcmf);
  271.     DeleteMetaFile(hmf);
  272.     unlink(wdev->mfname);
  273.  
  274.     win_prn_destroytools(wdev);
  275.     DeleteDC(wdev->hdcmono);
  276.     DeleteObject(wdev->hbmmono);
  277.     DeleteObject(wdev->himgpalette);
  278.     gs_free((char *)(wdev->limgpalette), 1, sizeof(LOGPALETTE) + 
  279.         (1<<(wdev->color_info.depth)) * sizeof(PALETTEENTRY),
  280.         "win_prn_close");
  281.     return(0);
  282. }
  283.  
  284. /* Do nothing */
  285. int
  286. win_prn_sync_output(gx_device *dev)
  287. {
  288.     return 0;
  289. }
  290.  
  291. /* Write page to printer */
  292. int
  293. win_prn_output_page(gx_device *dev, int copies, int flush)
  294. {
  295. RECT rect;
  296. HMETAFILE hmf;
  297.     hmf = CloseMetaFile(wdev->hdcmf);
  298.     
  299.     Escape(wdev->hdcprn, NEXTBAND, 0, NULL, (LPRECT)&rect);
  300.     while (!IsRectEmpty(&rect)) {
  301.         PlayMetaFile(wdev->hdcprn, hmf);
  302.         if (Escape(wdev->hdcprn, NEXTBAND, 0, NULL, (LPRECT)&rect) <= 0)
  303.         break;
  304.     }
  305.     DeleteMetaFile(hmf);
  306.     unlink(wdev->mfname);
  307.     wdev->hdcmf = CreateMetaFile(wdev->mfname);
  308.     (void) SelectPalette(wdev->hdcmf,wdev->himgpalette,FALSE);
  309.     RealizePalette(wdev->hdcmf);
  310.     SelectObject(wdev->hdcmf,wdev->hpen);
  311.     SelectObject(wdev->hdcmf,wdev->hbrush);
  312.  
  313.     return 0;
  314. }
  315.  
  316.  
  317. /* Map a r-g-b color to the colors available under Windows */
  318. private gx_color_index
  319. win_prn_map_rgb_color(gx_device *dev, gx_color_value r, gx_color_value g,
  320.   gx_color_value b)
  321. {    int i = wdev->nColors;
  322.     gx_color_index color = win_map_rgb_color(dev, r, g, b);
  323.     if ( color != i ) return color;
  324.     (void) SelectPalette(wdev->hdcmf,wdev->himgpalette,FALSE);
  325.     RealizePalette(wdev->hdcmf);
  326.     win_prn_addtool(wdev, i);
  327.  
  328.     return color;
  329. }
  330.  
  331.  
  332. /* Macro for filling a rectangle with a color. */
  333. /* Note that it starts with a declaration. */
  334. #define fill_rect(x, y, w, h, color)\
  335. RECT rect;\
  336. rect.left = x, rect.top = y;\
  337. rect.right = x + w, rect.bottom = y + h;\
  338. FillRect(wdev->hdcmf, &rect, wdev->hbrushs[(int)color])
  339.  
  340.  
  341. /* Fill a rectangle. */
  342. private int
  343. win_prn_fill_rectangle(gx_device *dev, int x, int y, int w, int h,
  344.   gx_color_index color)
  345. {
  346.     fit_fill(dev, x, y, w, h);
  347.     /* Use PatBlt for filling.  Special-case black. */
  348.     if ( color == 0 )
  349.         PatBlt(wdev->hdcmf, x, y, w, h, rop_write_0s);
  350.     else
  351.     {    select_brush((int)color);
  352.         PatBlt(wdev->hdcmf, x, y, w, h, rop_write_pattern);
  353.     }
  354.  
  355.     return 0;
  356. }
  357.  
  358. /* Tile a rectangle.  If neither color is transparent, */
  359. /* pre-clear the rectangle to color0 and just tile with color1. */
  360. /* This is faster because of how win_copy_mono is implemented. */
  361. /* Note that this also does the right thing for colored tiles. */
  362. private int
  363. win_prn_tile_rectangle(gx_device *dev, const gx_tile_bitmap *tile,
  364.   int x, int y, int w, int h, gx_color_index czero, gx_color_index cone,
  365.   int px, int py)
  366. {    fit_fill(dev, x, y, w, h);
  367.     if ( czero != gx_no_color_index && cone != gx_no_color_index )
  368.        {    fill_rect(x, y, w, h, czero);
  369.         czero = gx_no_color_index;
  370.        }
  371.     if ( tile->raster == bmWidthBytes && tile->size.y <= bmHeight &&
  372.          (px | py) == 0 && cone != gx_no_color_index
  373.        )
  374.     {    /* We can do this much more efficiently */
  375.         /* by using the internal algorithms of copy_mono */
  376.         /* and gx_default_tile_rectangle. */
  377.         int width = tile->size.x;
  378.         int height = tile->size.y;
  379.         int rwidth = tile->rep_width;
  380.         int irx = ((rwidth & (rwidth - 1)) == 0 ? /* power of 2 */
  381.             x & (rwidth - 1) :
  382.             x % rwidth);
  383.         int ry = y % tile->rep_height;
  384.         int icw = width - irx;
  385.         int ch = height - ry;
  386.         int ex = x + w, ey = y + h;
  387.         int fex = ex - width, fey = ey - height;
  388.         int cx, cy;
  389.  
  390.         select_brush((int)cone);
  391.  
  392.         if ( tile->id != wdev->bm_id || tile->id == gx_no_bitmap_id )
  393.         {    wdev->bm_id = tile->id;
  394.             SetBitmapBits(wdev->hbmmono,
  395.                       (DWORD)(bmWidthBytes * tile->size.y),
  396.                       (BYTE *)tile->data);
  397.         }
  398.  
  399. #define copy_tile(srcx, srcy, tx, ty, tw, th)\
  400.   BitBlt(wdev->hdcmf, tx, ty, tw, th, wdev->hdcmono, srcx, srcy, rop_write_at_1s)
  401.  
  402.         if ( ch > h ) ch = h;
  403.         for ( cy = y; ; )
  404.            {    if ( w <= icw )
  405.                 copy_tile(irx, ry, x, cy, w, ch);
  406.             else
  407.             {    copy_tile(irx, ry, x, cy, icw, ch);
  408.                 cx = x + icw;
  409.                 while ( cx <= fex )
  410.                 {    copy_tile(0, ry, cx, cy, width, ch);
  411.                     cx += width;
  412.                 }
  413.                 if ( cx < ex )
  414.                 {    copy_tile(0, ry, cx, cy, ex - cx, ch);
  415.                 }
  416.             }
  417.             if ( (cy += ch) >= ey ) break;
  418.             ch = (cy > fey ? ey - cy : height);
  419.             ry = 0;
  420.            }
  421.  
  422.         return 0;
  423.     }
  424.     return gx_default_tile_rectangle(dev, tile, x, y, w, h, czero, cone, px, py);
  425. }
  426.  
  427.  
  428. /* Draw a line */
  429. private int
  430. win_prn_draw_line(gx_device *dev, int x0, int y0, int x1, int y1,
  431.   gx_color_index color)
  432. {
  433.     if (wdev->hpen != wdev->hpens[(int)color]) {
  434.         wdev->hpen = wdev->hpens[(int)color];
  435.         SelectObject(wdev->hdcmf,wdev->hpen);
  436.     }
  437. #ifdef __WIN32__
  438.     MoveToEx(wdev->hdcmf, x0, y0, NULL);
  439. #else
  440.     MoveTo(wdev->hdcmf, x0, y0);
  441. #endif
  442.     LineTo(wdev->hdcmf, x1, y1);
  443.     return 0;
  444. }
  445.  
  446. /* Copy a monochrome bitmap.  The colors are given explicitly. */
  447. /* Color = gx_no_color_index means transparent (no effect on the image). */
  448. private int
  449. win_prn_copy_mono(gx_device *dev,
  450.   const byte *base, int sourcex, int raster, gx_bitmap_id id,
  451.   int x, int y, int w, int h,
  452.   gx_color_index zero, gx_color_index one)
  453. {    int endx;
  454.     const byte *ptr_line;
  455.     int width_bytes, height;
  456.     DWORD rop = rop_write_at_1s;
  457.     int color;
  458.     BYTE aBit[bmWidthBytes * bmHeight];
  459.     BYTE *aptr = aBit;
  460.  
  461.     fit_copy(dev, base, sourcex, raster, id, x, y, w, h);
  462.  
  463.     if ( sourcex & ~7 )
  464.     {    base += sourcex >> 3;
  465.         sourcex &= 7;
  466.     }
  467.  
  468.     /* Break up large transfers into smaller ones. */
  469.     while ( (endx = sourcex + w) > bmWidthBits )
  470.     {    int lastx = (endx - 1) & -bmWidthBits;
  471.         int subw = endx - lastx;
  472.         int code = win_prn_copy_mono(dev, base, lastx,
  473.                          raster, gx_no_bitmap_id,
  474.                          x + lastx - sourcex, y,
  475.                          subw, h, zero, one);
  476.         if ( code < 0 ) return code;
  477.         w -= subw;
  478.     }
  479.     while ( h > bmHeight )
  480.     {    int code;
  481.         h -= bmHeight;
  482.         code = win_prn_copy_mono(dev, base + h * raster, sourcex,
  483.                      raster, gx_no_bitmap_id,
  484.                      x, y + h, w, bmHeight, zero, one);
  485.         if ( code < 0 ) return code;
  486.     }
  487.  
  488.     width_bytes = (sourcex + w + 7) >> 3;
  489.     ptr_line = base;
  490.  
  491.     if ( zero == gx_no_color_index )
  492.        {    if ( one == gx_no_color_index ) return 0;
  493.         color = (int)one;
  494.         if ( color == 0 )
  495.             rop = rop_write_0_at_1s;
  496.         else
  497.             select_brush(color);
  498.        }
  499.     else
  500.        {    if ( one == gx_no_color_index )
  501.            {    color = (int)zero;
  502.             rop = rop_write_at_0s;
  503.            }
  504.         else
  505.            {    /* Pre-clear the rectangle to zero */
  506.             fill_rect(x, y, w, h, zero);
  507.             color = (int)one;
  508.            }
  509.         select_brush(color);
  510.        }
  511.  
  512.     if ( id != wdev->bm_id || id == gx_no_bitmap_id )
  513.     {    wdev->bm_id = id;
  514.         if ( raster == bmWidthBytes )
  515.         {    /* We can do the whole thing in a single transfer! */
  516.             SetBitmapBits(wdev->hbmmono,
  517.                       (DWORD)(bmWidthBytes * h),
  518.                       (BYTE *)base);
  519.         }
  520.         else
  521.         {    for ( height = h; height--;
  522.                   ptr_line += raster, aptr += bmWidthBytes
  523.                 )
  524.             {    /* Pack the bits into the bitmap. */
  525.                 switch ( width_bytes )
  526.                 {
  527.                     default: memcpy(aptr, ptr_line, width_bytes); break;
  528.                     case 4: aptr[3] = ptr_line[3];
  529.                     case 3: aptr[2] = ptr_line[2];
  530.                     case 2: aptr[1] = ptr_line[1];
  531.                     case 1: aptr[0] = ptr_line[0];
  532.                 }
  533.             }
  534.             SetBitmapBits(wdev->hbmmono,
  535.                       (DWORD)(bmWidthBytes * h),
  536.                       &aBit[0]);
  537.         }
  538.     }
  539.  
  540.     BitBlt(wdev->hdcmf, x, y, w, h, wdev->hdcmono, sourcex, 0, rop);
  541.     return 0;
  542. }
  543.  
  544.  
  545. /* Copy a color pixel map.  This is just like a bitmap, except that */
  546. /* each pixel takes 8 or 4 bits instead of 1 when device driver has color. */
  547. private int
  548. win_prn_copy_color(gx_device *dev,
  549.   const byte *base, int sourcex, int raster, gx_bitmap_id id,
  550.   int x, int y, int w, int h)
  551. {
  552.     fit_copy(dev, base, sourcex, raster, id, x, y, w, h);
  553.  
  554.     if ( gx_device_has_color(dev) )
  555.     {
  556.     switch(dev->color_info.depth) {
  557.       case 8:
  558.         {    int xi, yi;
  559.         int skip = raster - w;
  560.         const byte *sptr = base + sourcex;
  561.           if ( w <= 0 ) return 0;
  562.           if ( x < 0 || x + w > dev->width )
  563.             return_error(gs_error_rangecheck);
  564.         for ( yi = y; yi - y < h; yi++ )
  565.            {
  566.             for ( xi = x; xi - x < w; xi++ )
  567.                {    int color =  *sptr++;
  568.                 SetPixel(wdev->hdcmf,xi,yi,PALETTEINDEX(color));
  569.                }
  570.             sptr += skip;
  571.            }
  572.         }
  573.         break;
  574.       case 4:
  575.        {    /* color device, four bits per pixel */
  576.         const byte *line = base + (sourcex >> 1);
  577.         int dest_y = y, end_x = x + w;
  578.  
  579.         if ( w <= 0 ) return 0;
  580.         while ( h-- )              /* for each line */
  581.            {    const byte *source = line;
  582.             register int dest_x = x;
  583.             if ( sourcex & 1 )    /* odd nibble first */
  584.                {    int color =  *source++ & 0xf;
  585.                 SetPixel(wdev->hdcmf,dest_x,dest_y,PALETTEINDEX(color));
  586.                 dest_x++;
  587.                }
  588.             /* Now do full bytes */
  589.             while ( dest_x < end_x )
  590.                {    int color = *source >> 4;
  591.                 SetPixel(wdev->hdcmf,dest_x,dest_y,PALETTEINDEX(color));
  592.                 dest_x++;
  593.                 if ( dest_x < end_x )
  594.                    {    color =  *source++ & 0xf;
  595.                     SetPixel(wdev->hdcmf,dest_x,dest_y,PALETTEINDEX(color));
  596.                     dest_x++;
  597.                    }
  598.                }
  599.             dest_y++;
  600.             line += raster;
  601.            }
  602.        }
  603.        break;
  604.     default:
  605.         return(-1); /* panic */
  606.     }
  607.     }
  608.     else 
  609.     /* monochrome device: one bit per pixel */
  610.        {    /* bitmap is the same as win_copy_mono: one bit per pixel */
  611.         win_prn_copy_mono(dev, base, sourcex, raster, id, x, y, w, h,
  612.             (gx_color_index)0, 
  613.             (gx_color_index)(dev->color_info.depth==8 ? 63 : dev->color_info.max_gray));
  614.        }
  615.     return 0;
  616. }
  617.  
  618.  
  619. /* ------ Internal routines ------ */
  620.  
  621. #undef wdev
  622.  
  623.  
  624. private void near
  625. win_prn_addtool(gx_device_win_prn *wdev, int i)
  626. {
  627.     wdev->hpens[i] = CreatePen(PS_SOLID, 1, PALETTEINDEX(i));
  628.     wdev->hbrushs[i] = CreateSolidBrush(PALETTEINDEX(i));
  629. }
  630.  
  631.  
  632. private void near
  633. win_prn_maketools(gx_device_win_prn *wdev, HDC hdc)
  634. {    int i;
  635.     wdev->hpensize = (1<<(wdev->color_info.depth)) * sizeof(HPEN);
  636.     wdev->hpens = (HPEN *)gs_malloc(1, wdev->hpensize,
  637.                     "win_prn_maketools(pens)");
  638.     wdev->hbrushsize = (1<<(wdev->color_info.depth)) * sizeof(HBRUSH);
  639.     wdev->hbrushs = (HBRUSH *)gs_malloc(1, wdev->hbrushsize,
  640.                         "win_prn_maketools(brushes)");
  641.     if (wdev->hpens && wdev->hbrushs) {
  642.         for (i=0; i<wdev->nColors; i++)
  643.             win_prn_addtool(wdev, i);
  644.  
  645.         wdev->hpen = wdev->hpens[0];
  646.         SelectObject(hdc,wdev->hpen);
  647.  
  648.         wdev->hbrush = wdev->hbrushs[0];
  649.         SelectObject(hdc,wdev->hbrush);
  650.     }
  651. }
  652.  
  653.  
  654. private void near
  655. win_prn_destroytools(gx_device_win_prn *wdev)
  656. {    int i;
  657.     for (i=0; i<wdev->nColors; i++) {
  658.         DeleteObject(wdev->hpens[i]);
  659.         DeleteObject(wdev->hbrushs[i]);
  660.     }
  661.     gs_free((char *)wdev->hbrushs, 1, wdev->hbrushsize,
  662.         "win_prn_destroytools(brushes)");
  663.     gs_free((char *)wdev->hpens, 1, wdev->hpensize,
  664.         "win_prn_destroytools(pens)");
  665. }
  666.